home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 029a / lite411q.zip / TESTME.BAS < prev    next >
BASIC Source File  |  1991-07-25  |  1KB  |  61 lines
  1. REM $DYNAMIC
  2. DEFINT A-Z
  3.  
  4. DECLARE SUB InitVideo ()
  5. DECLARE SUB GetVideoInfo (VideoSegment%, VideoOffset%, MaxRows%, MaxCols%)
  6. DECLARE FUNCTION IsBWmode% ()
  7. DECLARE FUNCTION VideoBoard% ()
  8. DECLARE FUNCTION VideoPage% ()
  9. DECLARE FUNCTION VideoPageLength% ()
  10. DECLARE FUNCTION ScreenMode% ()
  11.  
  12.      CLS
  13.      
  14.      InitVideo
  15.  
  16.      GetVideoInfo VideoSegment, VideoOffset, MaxRows, MaxCols
  17.  
  18.      LOCATE 6, 1
  19.  
  20.      PRINT "Howdy, i'm working!"
  21.      PRINT
  22.      PRINT "I have a ";
  23.  
  24.      SELECT CASE VideoBoard
  25.  
  26.           CASE 0
  27.                PRINT "MDA";
  28.           CASE 1
  29.                PRINT "CGA";
  30.           CASE 2
  31.                PRINT "CEGA";
  32.           CASE 3
  33.                PRINT "MCGA";
  34.           CASE 4
  35.                PRINT "VGA";
  36.           CASE ELSE
  37.                BEEP: PRINT "Unknown";
  38.      END SELECT
  39.  
  40.      PRINT " Video Card";
  41.  
  42.      IF IsBWmode THEN
  43.           PRINT ", but I appear to be in a BW/Mono Mode."
  44.      ELSE
  45.           PRINT
  46.      END IF
  47.  
  48.      PRINT
  49.      PRINT "Video Segment  : "; HEX$(VideoSegment)
  50.      PRINT "Video Offset   : "; HEX$(VideoOffset)
  51.      PRINT "Video Rows     :"; MaxRows
  52.      PRINT "Video Columns  :"; MaxCols
  53.      PRINT
  54.      PRINT "Video Mode     :"; ScreenMode
  55.      PRINT "Video Page     :"; VideoPage
  56.      PRINT "Video Page Len :"; VideoPageLength
  57.      PRINT
  58.  
  59.  
  60.  
  61.